home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 19 / CU Amiga Magazine's Super CD-ROM 19 (1998)(EMAP Images)(GB)[!][issue 1998-02].iso / CUCD / Utilities / BlacksEditor / Rexx / IndentBlk.bed < prev    next >
Text File  |  1997-11-25  |  532b  |  39 lines
  1. /*
  2. ** $VER: IndentBlk.bed 1.01 (01.04.96)
  3. **
  4. ** Indent the selected block
  5. **
  6. ** Written by Marco Negri
  7. */
  8.  
  9. OPTIONS RESULTS
  10.  
  11. SetInputLock ON
  12. SetDisplayLock ON
  13.  
  14. GetBlkDims
  15. PARSE VAR RESULT mode . start . end
  16.  
  17. GetCursorPos
  18. PARSE VAR RESULT y x .
  19.  
  20. IF mode = OFF THEN DO
  21.     SetStatusBar "Error: No block selected!"
  22. END; ELSE DO
  23.     SetStatusBar "Indenting the block..."
  24.     Move LINE start
  25.  
  26.     RecordMacro QUIET
  27.     ShiftRight TABS
  28.     MoveDown
  29.     EndMacro
  30.  
  31.     IF end-start > 0 THEN
  32.         PlayMacro end-start
  33.  
  34.     Move y x
  35. END
  36.  
  37. SetDisplayLock OFF
  38. SetInputLock OFF
  39.